function [ValueResult1,ValueResult2,ValueResult3,ValueResult4]=checkAuthorsEditorsNature4(VecGroupCoAuthors)

VecTemp=VecGroupCoAuthors;
n4=1;
n5=size(VecTemp,1);
n6=size(VecTemp,2);
TestTemp=0;
while n4<=n5&&TestTemp==0
    n41=VecTemp{n4,1}+2;
    while n41<=n6&&TestTemp==0
        ValueTemp2=VecTemp{n4,n41};
        if size(ValueTemp2,1)>=1&&size(ValueTemp2,2)>=1
            TestTemp=1;
            n2=1;
            for n1=n41+1:n6
                if size(ValueTemp2,1)>=1&&size(ValueTemp2,2)>=1
                    n2=n2+1;
                end
            end
        end
        n41=n41+1;
    end
    n4=n4+1;
end
if TestTemp==1
    ValueResult1=n4-1;
    ValueResult2=n41-1;
    ValueResult3=VecTemp{n4-1,1};
    ValueResult4=n2;
else
    ValueResult1=NaN;
    ValueResult2=NaN;
    ValueResult3=NaN;
    ValueResult4=NaN;
end
            

